SQLDIRECT "USE SESSION 2"
SQLPREPARE "DECLARE C2 CURSOR FOR"
SQLPREPARE "SELECT TOP 100 * FROM myVBTABLE"
SQLEXECUTE

SQLDIRECT "OPEN C2"

Dim i
For i = 0 To 99 Step 1
SETVAL "index(" & i & ")=" & i
SQLDIRECT "FETCH NEXT C2 INTO array1("&i&"), array2("&i&"), array3("&i&"), array4("&i&")"
'BWSPOOL "FETCH NEXT C2 INTO array1("&i&"), array2("&i&"), array3("&i&"), array4("&i&")" & vbcrlf

'BWSPOOL i
Next

BWSPOOL "<before close>"
SQLDIRECT "CLOSE C2"
